inherited frmSubject_List: TfrmSubject_List
  Left = 513
  Top = 195
  Caption = #31185#30446#23383#20856
  ClientHeight = 375
  ClientWidth = 563
  FormStyle = fsMDIChild
  Visible = True
  OnActivate = FormActivate
  OnDeactivate = FormDeactivate
  ExplicitWidth = 571
  ExplicitHeight = 402
  PixelsPerInch = 96
  TextHeight = 12
  object TabControl1: TTabControl [0]
    Left = 16
    Top = 16
    Width = 396
    Height = 340
    Anchors = [akLeft, akTop, akRight, akBottom]
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    Style = tsButtons
    TabHeight = 20
    TabOrder = 0
    Tabs.Strings = (
      #36164#20135
      #36127#20538
      #20849#21516
      #26435#30410
      #25104#26412
      #25439#30410)
    TabIndex = 0
    TabWidth = 60
    OnChange = TabControl1Change
    object tlSubject: TcxDBTreeList
      Left = 4
      Top = 26
      Width = 388
      Height = 310
      Align = alClient
      Bands = <
        item
        end>
      DataController.DataSource = MainDataSource
      DataController.ParentField = 'pid'
      DataController.KeyField = 'subjectid'
      Images = MainDM.imgList
      Navigator.Buttons.CustomButtons = <>
      OptionsData.Editing = False
      OptionsData.Deleting = False
      OptionsView.ColumnAutoWidth = True
      RootValue = -1
      TabOrder = 0
      OnDblClick = tlSubjectDblClick
      OnGetNodeImageIndex = tlSubjectGetNodeImageIndex
      OnKeyDown = tlSubjectKeyDown
      object tlSubjectcxSubCode: TcxDBTreeListColumn
        Caption.AlignHorz = taCenter
        DataBinding.FieldName = 'subcode'
        Width = 100
        Position.ColIndex = 0
        Position.RowIndex = 0
        Position.BandIndex = 0
        Summary.FooterSummaryItems = <>
        Summary.GroupFooterSummaryItems = <>
      end
      object tlSubjectcxSubname: TcxDBTreeListColumn
        Caption.AlignHorz = taCenter
        DataBinding.FieldName = 'subname'
        Width = 100
        Position.ColIndex = 1
        Position.RowIndex = 0
        Position.BandIndex = 0
        Summary.FooterSummaryItems = <>
        Summary.GroupFooterSummaryItems = <>
      end
    end
  end
  object btnOK: TButton [1]
    Left = 428
    Top = 56
    Width = 96
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #30830#23450'(&A)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 1
    OnClick = btnOKClick
  end
  object btnAdd: TButton [2]
    Left = 428
    Top = 144
    Width = 96
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #22686#21152#21516#32423
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = btnAddClick
  end
  object btnAddSub: TButton [3]
    Left = 428
    Top = 176
    Width = 96
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #22686#21152#19979#32423
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = btnAddSubClick
  end
  object btnEdit: TButton [4]
    Left = 428
    Top = 208
    Width = 96
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #20462' '#25913
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = btnEditClick
  end
  object btnDelete: TButton [5]
    Left = 428
    Top = 240
    Width = 96
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #21024' '#38500
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = btnDeleteClick
  end
  object btnList: TButton [6]
    Left = 428
    Top = 272
    Width = 96
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #21015#34920#26597#35810
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = btnListClick
  end
  object btnCancel: TButton [7]
    Left = 428
    Top = 96
    Width = 96
    Height = 25
    Anchors = [akTop, akRight]
    Cancel = True
    Caption = #21462#28040'(&C)'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 7
    OnClick = btnCancelClick
  end
  object btnRefresh: TButton [8]
    Left = 428
    Top = 324
    Width = 96
    Height = 25
    Anchors = [akTop, akRight]
    Caption = #21047#26032
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = btnRefreshClick
  end
  inherited MainDataSource: TDataSource
    DataSet = qrySubject
  end
  object qrySubject: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from tfd_subject')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Options.RequiredFields = False
    Options.QueryRecCount = True
    Left = 28
    Top = 64
    object qrySubjectsubcode: TStringField
      DisplayLabel = #31185#30446#32534#30721
      FieldName = 'subcode'
      ProviderFlags = [pfInUpdate]
      Required = True
    end
    object qrySubjectsubname: TWideStringField
      DisplayLabel = #31185#30446#21517#31216
      FieldName = 'subname'
      Size = 60
    end
    object qrySubjectsubjectid: TIntegerField
      FieldName = 'subjectid'
      ProviderFlags = [pfInUpdate, pfInKey]
      Required = True
    end
    object qrySubjectpid: TIntegerField
      FieldName = 'pid'
      ProviderFlags = [pfInUpdate]
    end
    object qrySubjectsubkind: TWordField
      FieldName = 'subkind'
      ProviderFlags = [pfInUpdate]
    end
    object qrySubjectsublevel: TWordField
      FieldName = 'sublevel'
      ProviderFlags = [pfInUpdate]
    end
    object qrySubjectdocashflow: TBooleanField
      FieldName = 'docashflow'
      ProviderFlags = [pfInUpdate]
    end
    object qrySubjectdodept: TBooleanField
      FieldName = 'dodept'
      ProviderFlags = [pfInUpdate]
    end
    object qrySubjectdoproject: TBooleanField
      FieldName = 'doproject'
      ProviderFlags = [pfInUpdate]
    end
    object qrySubjectisdebit: TBooleanField
      FieldName = 'isdebit'
      ProviderFlags = [pfInUpdate]
    end
    object qrySubjectdofmoney: TBooleanField
      FieldName = 'dofmoney'
      ProviderFlags = [pfInUpdate]
    end
    object qrySubjectmoneyid: TIntegerField
      FieldName = 'moneyid'
      ProviderFlags = [pfInUpdate]
    end
    object qrySubjectsubtypeid: TIntegerField
      FieldName = 'subtypeid'
      ProviderFlags = [pfInUpdate]
    end
    object qrySubjectsign: TBooleanField
      FieldName = 'sign'
      ProviderFlags = [pfInUpdate]
    end
    object qrySubjectisadjrate: TBooleanField
      FieldName = 'isadjrate'
      ProviderFlags = [pfInUpdate]
    end
    object qrySubjectpause: TBooleanField
      FieldName = 'pause'
      ProviderFlags = [pfInUpdate]
    end
    object qrySubjectdoqty: TBooleanField
      FieldName = 'doqty'
    end
    object qrySubjectdotrader: TBooleanField
      FieldName = 'dotrader'
    end
    object qrySubjectdoproduct: TBooleanField
      FieldName = 'doproduct'
    end
    object qrySubjectsubnode: TBooleanField
      FieldName = 'subnode'
    end
    object qrySubjectspecialcode: TIntegerField
      FieldName = 'specialcode'
    end
    object qrySubjectfullsubname: TWideStringField
      FieldName = 'fullsubname'
      Size = 200
    end
    object qrySubjectdoemp: TBooleanField
      FieldName = 'doemp'
    end
  end
end
